home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / DISK / CBHD502 / SRC / M2 / PORTAB.D next >
Encoding:
Modula Definition  |  1996-12-09  |  1.6 KB  |  81 lines
  1. DEFINITION MODULE Portab;
  2. (****************************************************************************
  3.  *
  4.  * Modul mit diversen Konstanten und Parametern
  5.  *
  6.  * $Source: E:\HM2\LIB\se\rcs\portab.d,v $
  7.  *
  8.  * $Revision: 1.1 $
  9.  *
  10.  * $Author: S_Engel $
  11.  *
  12.  * $Date: 1995/01/01 19:13:52 $
  13.  *
  14.  * $State: Exp $
  15.  *
  16.  *****************************************************************************
  17.  * History:
  18.  *
  19.  * $Log: portab.d,v $
  20.  * Revision 1.1  1995/01/01  19:13:52  S_Engel
  21.  * Initial revision
  22.  *
  23.  *
  24.  *
  25.  ****************************************************************************)
  26.  
  27. IMPORT SYSTEM;
  28.  
  29. (* Verwendeter Compiler *)
  30. TYPE
  31.   tCompiler = (Haenisch, Megamax);
  32.  
  33. CONST
  34.   Compiler = Haenisch;
  35.  
  36. (* Pfade und Dateinamen *)
  37.   PATHLEN = 1024;
  38.   NAMELEN = 128;
  39.  
  40. TYPE
  41.   tPath   = ARRAY[0..PATHLEN] OF CHAR;
  42.   tName   = ARRAY[0..NAMELEN] OF CHAR;
  43.  
  44. (* Allgemein und oft benutzter String-Typ *)
  45. TYPE
  46.   tStr    = ARRAY[0..MAX(INTEGER)-2] OF CHAR;
  47.   tpStr   = POINTER TO tStr;
  48.   tpChar  = POINTER TO CHAR;
  49.  
  50.  
  51. (* C-Typen *)
  52. TYPE
  53.   USHORT  = SHORTCARD;
  54.   SHORT   = SHORTINT;
  55.   LPSHORT = POINTER TO SHORT;
  56.   ULONG   = SHORTCARD;
  57.   LONG    = LONGCARD;
  58.   LPLONG  = POINTER TO LONG;
  59.  
  60.   UChar   = [0..255];
  61. (*$?SYSTEM.TSIZE(UChar) # 1: Typ-Fehler *)
  62.  
  63.   Char    = [-128..127];
  64. (*$?SYSTEM.TSIZE(Char) # 1: Typ-Fehler *)
  65.  
  66.   BOOL    = BOOLEAN;
  67.  
  68.   LPSTR   = POINTER TO ARRAY[0..MAX(LONGINT)-2] OF CHAR;
  69.  
  70.   HPVOID  = SYSTEM.ADDRESS;
  71.  
  72.   HPCHAR  = POINTER TO ARRAY[0..MAX(LONGINT)-2] OF CHAR;
  73.  
  74.   tINT    = SHORTINT;
  75.  
  76.   LPINT   = POINTER TO SHORTINT;
  77.  
  78.  
  79.  
  80. END Portab.
  81.